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KEYBOARD CONTROLLED BINARY PUNCH 


DECUS Program Library Write-up 

INTRODUCTION 


DECUS No. 8-187 


The Keyboard Controlled Binary Punch makes binary tan 
areas of core. Its main features are as follows: 


es of selected 


1 . Keyboard controlled making all operations 
typed commands. 


specified by 


2 . Several blocks of data from separated areas of core can 
be punched on one tape. 

3 * Punches field marks for extended memory programming. 

4 . Occupies only one page of core. 

5 - Easy to use and especially good for FORTRAN programming. 

For example an operating program may be punched into tape 

llbrar Y routines, operating system, and monitor). 
d PJ og f ams sa ve d m this manner may be later run simply 
y loading the tape with the BIN loader and running them, with 
no need to fuss with special FORTRAN loaders. 

REQUIREMENTS 

This program requires a PDP- 5 , 8, 8/1 or 8/S with an ASR-33 
and high-speed punch. Extended memory is optional, and greatly 
increases the convenience of saving large programs. 

OPERATION 


A h ^Tnwt r nn^^ffe b ««^ry n versions of this program available 


B 

C 


T At t\ • u , --''***■' wj - yj. ctvctxiauie. Version 

°ccupies Page 1 V with a startin g address of 0200. Version 
°? cu P les .P a g e 3 o* with 7 a starting address of 7400 . Version 
SPECIAL) occupies page 37 3 with a starting address of 7600. 


The ASCII version may be reassembled to load 
SA=the first location on that page. 


into any page by setting 


Load and start the program. It will operate in 
with a CR/LF. Turn on the high-speed punch. 


any field and respond 


The following commands are now available: 


1 . 


L 

Typing the letter L will 
(code 2/0) to be punched. 


(leader) 

cause about six inches of BIN leader 
The program will then respond auto- 






matically with a CR/LP. L also clears the checksum in 

preparation for punching a program. 

2 . P n (field) 

Typing F, a field number ( 0 - 7 ), and a CR will cause a field 
mark of the form 3 n 0 to be punched on the tape. All data 
thereafter will be taken from the specified field. 

3 . P mmmm-nnnn (punch) 

Typing P, two octal core limits separated by a dash, and CR 
will cause the specified material to be punched in binary. 

The data will be taken from the field most recently specified 
by F, or, if no field has been given, by the field specified 
by the DATA FIELD register when the program was started. 

C (checksum) 

Typing C will cause the accumulated checksum to be punched, 
followed by six inches of leader code 200 . The checksum 
will then be cleared. The program will respond with CR/LF. 

All spaces are ignored on input. Any character besides L, F, P, 
or C typed at.the beginning of a line (including CR) will be ignored. 
No punching will take place, and the program will restart, responding 
with a CR/LF. Pressing rubout while typing a line will also cause a 
restart, and the line will be ignored. 

No field mark is punched unless an F command is given. Data to be 
punched is taken from the field indicated by the DATA FIELD register. 
If it is desired to change the field without punching a field mark, 
restart the program and set the DATA FIELD register to the desired 
field. 

When punching a tape designed to be loaded into any field, field 
marks should not be punched, except when punching a tape which must 
later be loaded into a particular field (or sections of which must 
be loaded into different fields. 

The checksum must be punched immediately after the data. The leader 
punched after the checksum will cause the BIN loader to compare this 
checksum to that computed while the tape has been read in. 

Enough loader (L) should be punched at the beginning of the tape to 
make handling easy. 

For further information on BIN format, refer to the DEC documentation 
for the Binary Loader. 

Some suggestions for different systems: 

1 . Without Extented Memory - A free page must be found in which to 
place the punch program. The SPECIAL version cannot be used for there 
is no way to load it over the loader. A space between the program and 
the data is found by running SYMBOLPRINT and can be used to locate the 
punch routine when saving FORTRAN. 
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2. Extended Memory - If the SPECIAL version is used, it may be 
placed in the last page of the field which does not contain the 
RIM and BIN loaders. 

3- 8K Memory and Disk/DECtape Monitor - The monitor head occupies 
the last page of field 0 } and the RIM and BIN loaders are usually 
placed in field 1. To save the RIM and BIN loaders on the systems 
device, the following is used: .SAVE BINL ! 17600; 

The SPECIAL version may then be loaded into field 1 and used (this 
may also be saved). To restore the RIM and BIN loaders, call .BINL 
from the monitor. 

4. 8 k FORTRAN - After loading the operational program, punch the 
contents of each field up to and including the page determined by 
subtracting the number of free pages in that field (printed by the 
symbol table routine in the loader) from 363. Field marks should 
be punched on the tape at the beginning of each field. 

ERRORS 

There is no error detection system. The user should note the following: 

1. If the first (non-space; spaces are ignored) character is not 
L, F, P, or C, it is ignored and the program restarts. 

2. Numbers are processed up to the first non-digit. No attempt 
is made to check for overflow, therefore, a field number not in 
the range 0-7 may cause severe errors. 

3- It is important that the punching strictly follow BIN format, 
that is, leader must precede data. Several blocks of data may be 
punched consecutively, but there must be no leader between them. 

Finally, the checksum must be punched, followed by leader in any 
amount. The entire sequence may be repeated several times on the 
same tape, in which case the BIN loader will stop at the end of each 
section for checksum comparison. The program does not check for 
’illegal sequences. 

If a mistake is made, punch leader to clear the checksum and start 
over. 

A typing error may be corrected by pressing rubout and retyping the 
line if the command has not yet been executed. 
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/KEYBOARD CONTROLLED BINARY PUNCH 

/ 

/BY EDWARD A. TAFT, III 

/ SAINT MARK'S SCHOOL 

/ SOUTHBOROUGH, MASS. 01772 

/FOR 8-FAMILY COMPUTERS, WITH ASR-33 AND HIGH SPEED PUNCH 

/OCCUPIES ONE PAGE 

SA=7600 


4 
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*SA 

7600 1341 START, TAD C215 

7601 4370 JMS COUT 

7602 1342 TAD M3 

7603 4370 JMS COUT 

7604 4350 JMS CIN 

7605 1343 TAD CLEAD 

7606 7450 SNA 

7607 5264 JMP LEADER 

7610 1344 TAD CSUM 

7611 7450 SNA 

7612 5261 JMP CHKSUM 

7613 1342 TAD M3 

7614 7450 SNA 

7615 5242 JMP ELD 

7616 1345 TAD CPUN 

761.7 7640 SZA CLA 

7620 5200 JMP START 

7621 4317 JMS OCIN 

7622 3251 DCA POINT 

7623 4317 JMS OCIN 

7624 7140 CLL CMA 

7625 1251 TAD POINT 

7626 3370 DCA COUT 

7627 1251 TAD POINT 

7630 7120 STL 

7631 4303 JMS WOUT 

7632 7100 CLL 

7633 1651 TAD I POINT 

7634 4303 JMS WOUT 

7635 2251 ISZ POINT 

7636 7700 C7700, SMA CLA 

7637 2370 ISZ COUT 

7640 5232 JMP .-6 

7641 5200 JMP START 

7642 4317 FLD, JMS OCIN 

7643 7104 CLL RAL 

,7644 7006 RTL 

7645 3303 DCA OCNUM 

7646 1303 TAD OCNUM 

7647 1346 TAD XCDF 

7650 3251 DCA .+1 

7651 6201 POINT, CDF 

7652 1347 TAD CHECKS 

7653 3251 DCA POINT 

7654 1303 TAD OCNUM 

7655 1236 TAD C7700 

7656 4274 JMS POUT 

7657 1251 TAD POINT 


/PRINT CR 
/LF 

/GET 1ST CHARACTER 
/TEST FOR L;C;F;P 

/L=PUNCH 6 INCHES LEADER 
/C-PUNCH CHECKSUM AND LEADER 
/F-NEW FIELD SETTING 


/NONE OF THOSE; IGNORE 
/P=PUNCH BINARY DATA 
/LOWER LIMIT 
/GET UPPER LIMIT 


/SET COUNTER 


/PUNCH ORIGIN SETTING 
/PUNCH THE DATA 


/DOES NOTHING HERE 


/NEW FIELD; GET FIELD # 
/MUST BE 0-7 


/CHANGE DATA FIELD 


/SAVE CHECKSUM 

/FIELD SETTING NOT A PART OF IT 
/PUNCH FIELD SETTING 


/RESTORE CHECKSUM 


5 




7660 

5272 

JMP 

leader+6 

7661 

1347 CHKSUM, 

TAD 

CHECKS 

7662 

7100 

CLL 


7663 

43/3 

JMS 

WOUT 

7664 

1236 LEADER, 

TAD C7700 

7665 

337/ 

DCA 

COUT 

7666 

1336 

TAD C200 

7667 

4274 

JMS 

POUT 

767/ 

237/ 

ISZ 

COUT 

7671 

5266 

JMP. 

• -3 

7672 

3347 

DCA 

CHECKS 

7673 

52// 

JMP 

START 


/PUNCH 

OUTPUT ROUTINE 

7674 

//// POUT, 

/ 


7675 

6/26 

PLS 


7676 

6/21 

PSF 


7677 

5276 

JMP 

.-1 

7700 

1347 

TAD 

CHECKS 

7701 

3347 

DCA 

CHECKS 

7702 

5674 

OCNUM=. 

JMP 

I POUT 


/WORD PUNCH 

(2 CHARACTERS) 

7703 

0000 WOUT, 

/ 

77/4 

335/ 

DCA 

CIN 

77/5 

135/ 

TAD 

CIN 

77/6 

0236 

AND 

C7700 

77/7 

7012 

RTR 


771/ 

7012 

RTR 


7711 

7012 

RTR 


7712 

4274 

JMS 

POUT 

7713 

135/ 

TAD 

CIN 

7714 

/375 

AND 

C77 

7715 

4274 

JMS 

POUT 

7716 

57/3 

JMP 

I WOUT 


/INPUT AN OCTAL NUMBER 

7717 

0000 OCIN, 

/ 


772/ 

33/3 

DCA 

OCNUM 

7721 

435/ 

JMS 

CIN 

7722 

1376 

TAD 

M270 

7723 

75// 

SMA 

7724 

5336 

JMP 

END 

7725 

1377 

TAD 

Cl/ 

7726 

751/ 

SPA 

7727 

5336 

JMP 

END 

773/ 

335/ 

DCA 

CIN 

7731 

13/3 

TAD 

OCNUM 

7732 

71/6 

CLL 

RTL 

7733 

7/04 

RAL 


7734 

135/ 

TAD 

CIN 

7735 

532/ 

JMP 

OCIN+1 


/PUNCH CHECKSUM 

/PUNCH 6 INCHES OF LEADER 

/ZERO OUT CHECKSUM 
/PUNCH CHARACTER IN AC 

/ADD TO CHECKSUM 


/GET LEFT HALF 


/GET RIGHT HALF 


/INITIALIZE TO / 
/GET A CHARACTER 
/SEE IF DIGIT 

/NO 


/NO 

/YES, SAVE 
/ADD NEW DIGIT 


% 
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c 


f 




7736 7200 

7737 1303 

7740 5717 

7741 0215 

7742 7775 

7743 7464 

7744 0011 

7745 7766 

7746 6201 

7747 0000 


END, 


7750 0000 

7751 6031 

7752 5351 

7753 6036 

7754 4370 

7755 1365 

7756 7450 

7757 5200 

7760 1366 

7761 7450 

7762 5351 

7763 1367 

7764 5750 

7765 7401 

7766 0137 

7767 0240 


CLA 

TAD OCNUM 
JMP I OCIN 
215 

-3 /FOR LF AND "F" 

-314 /FOR "L" 

314-303 /FOR "C" 

306-320 /FOR "P" 

CDF 

CHECKS, 0 /CHECKSUM 

/INPUT A CHARACTER FROM THE TELETYPE 


C215, 

M3, 

CLEAD, 

CSUM, 

CPUN, 

XCDF, 


CIN. 


M377 


TSPC, 

C240, 


0 

KSF 

JMP .-1 
KRB 

JMS COUT 
TAD M377 
SNA 

JMP START 
TAD TSPC 
SNA 

JMP CIN+1 
TAD C240 
JMP I CIN 
-377 
377-240 
240 


/ECHO 


/RUBOUT, RESTART 


/IGNORE SPACES 


7770 0000 

7771 6046 

7772 6041 

7773 5372 

7774 5770 


7775 0077 

7776 7510 

7777 0010 


/OUTPUT A CHARACTER TO THE TELETYPE 
COUT, 0 

TLS 

TSF 

JMP .-1 
JMP I COUT 

C300-C7700 
C77, 77 

M270, -270 /DIGIT TESTS 

C10, 10 
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CHECKS 7747 
CHKSUM 7661 
CIN 7750 
CLEAD 77^3 
COUT 7770 
CPUN 7745 
CSUM 7744 
C10 7777 
C200 7736 
C215 7741 
C240 7767 
C300 7636 
C77 7775 
C7700 7636 
END 7736 
FLD 7642 
LEADER 7664 
M270 7776 
M3 7742 
M377 7765 
OCIN 7717 
OCNUM 7703 
POINT 7651 
POUT 7674 
SA 7600 
START 7600 
TSPC 77 66 
WOUT 7703 
XCDF 7746 



